home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / INVCRPT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  1.8 KB  |  80 lines
  1. unit InvcRpt;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Messages, Classes, Graphics, Controls,
  6.   StdCtrls, ExtCtrls, Forms, Quickrpt, QRCtrls;
  7.  
  8. type
  9.   TInvoiceByOrderNoReport = class(TQuickRep)
  10.     DetailBand1: TQRBand;
  11.     QRDBText3: TQRDBText;
  12.     QRDBText6: TQRDBText;
  13.     QRDBText7: TQRDBText;
  14.     QRDBText8: TQRDBText;
  15.     QRDBText9: TQRDBText;
  16.     ColumnHeaderBand1: TQRBand;
  17.     QRLabel4: TQRLabel;
  18.     Description: TQRLabel;
  19.     QRLabel7: TQRLabel;
  20.     QRLabel8: TQRLabel;
  21.     QRLabel11: TQRLabel;
  22.     QRLabel12: TQRLabel;
  23.     TitleBand1: TQRBand;
  24.     QRLabel1: TQRLabel;
  25.     QRLabel2: TQRLabel;
  26.     QRDBText1: TQRDBText;
  27.     SummaryBand1: TQRBand;
  28.     QRExpr1: TQRExpr;
  29.     QRShape1: TQRShape;
  30.     QRLabel3: TQRLabel;
  31.     QRExpr2: TQRExpr;
  32.     QRDBText2: TQRDBText;
  33.     QRExpr3: TQRExpr;
  34.     QRDBText4: TQRDBText;
  35.     QRLabel5: TQRLabel;
  36.     QRLabel6: TQRLabel;
  37.     QRLabel9: TQRLabel;
  38.     QRShape2: TQRShape;
  39.     ChildBand1: TQRChildBand;
  40.     ChildBand2: TQRChildBand;
  41.     QRLabel10: TQRLabel;
  42.     QRLabel13: TQRLabel;
  43.     QRLabel14: TQRLabel;
  44.     QRLabel15: TQRLabel;
  45.     QRLabel16: TQRLabel;
  46.     QRLabel17: TQRLabel;
  47.     QRDBText5: TQRDBText;
  48.     QRDBText10: TQRDBText;
  49.     QRDBText11: TQRDBText;
  50.     QRDBText12: TQRDBText;
  51.     QRDBText13: TQRDBText;
  52.     QRDBText14: TQRDBText;
  53.     QRExpr5: TQRExpr;
  54.     QRDBText15: TQRDBText;
  55.     procedure InvoiceByOrderNoReportBeforePrint(Sender: TQuickRep;
  56.       var PrintReport: Boolean);
  57.   private
  58.  
  59.   public
  60.  
  61.   end;
  62.  
  63. var
  64.   InvoiceByOrderNoReport: TInvoiceByOrderNoReport;
  65.  
  66. implementation
  67.  
  68. uses DataMod;
  69.  
  70. {$R *.DFM}
  71.  
  72. procedure TInvoiceByOrderNoReport.InvoiceByOrderNoReportBeforePrint(
  73.   Sender: TQuickRep; var PrintReport: Boolean);
  74. begin
  75.   Sender.AllDataSets.Add(MastData.Cust);
  76.   Sender.AllDataSets.Add(MastData.Orders);
  77. end;
  78.  
  79. end.
  80.